home *** CD-ROM | disk | FTP | other *** search
/ Gigarom 1 / Gigarom Macintosh Archives (Quantum Leap)(CDRM1080320)(1993).iso / FILES / HYP / T-Z / VideoStakGold.cpt / VideoStakGold / The Idler / stack.txt < prev   
Text File  |  1988-04-27  |  6KB  |  227 lines
  1. -- stack: in
  2. -- format: 8 (HyperCard 1)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=0, y1=0, x2=0, y2=0)
  7. -- screen: Rect(x1=0, y1=0, x2=0, y2=0)
  8. -- card dimensions: w=0 h=0
  9. -- scroll: x=0 y=0
  10. -- background count: 1
  11. -- first background id: 2777
  12. -- card count: 25
  13. -- first card id: 2161
  14. -- list block id: 7377
  15. -- print block id: 0
  16. -- font table block id: 0
  17. -- style table block id: 0
  18. -- free block count: 0
  19. -- free size: 0 bytes
  20. -- total size: 60992 bytes
  21. -- stack block size: 4608 bytes
  22. -- created by hypercard version: 0x00000000
  23. -- compacted by hypercard version: 0x00000000
  24. -- modified by hypercard version: 0x00000000
  25. -- opened by hypercard version: 0x00000000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0x0
  67. ----- HyperTalk script -----
  68. on openStack
  69.   global idlerExit
  70.   hide msg
  71.   hide menuBar
  72.   push recent card
  73.   pop card into idlerExit
  74.   showYerStuff
  75. end openStack
  76.  
  77. on domenu whichItem
  78.   if whichItem = "Home" then homeBoy
  79.   pass domenu
  80. end domenu
  81.  
  82. on mouseUp
  83.   showYerStuff
  84. end mouseUp
  85.  
  86. on showYerStuff
  87.   hide msg
  88.   hide menuBar
  89.   visual dissolve fast
  90.   go first
  91.   set cursor to 4
  92.   set lockscreen to true
  93.   show all cards
  94.   set lockscreen to false
  95.   set cursor to -1
  96.   repeat
  97.     repeat with i = 1 to 3
  98.       visual dissolve
  99.       go to card i + 1
  100.       wait i + 1 seconds
  101.       back2square1
  102.     end repeat
  103.     repeat for 2
  104.       visual dissolve fast
  105.       go next
  106.       wait 30 ticks
  107.       back2square1
  108.     end repeat
  109.     repeat for 2
  110.       visual dissolve fast
  111.       go to card 7
  112.       visual dissolve fast
  113.       go to card 8
  114.       back2square1
  115.     end repeat
  116.     repeat for 4
  117.       visual dissolve fast
  118.       go to card 9
  119.       visual dissolve fast
  120.       go to card 10
  121.       back2square1
  122.     end repeat
  123.     repeat for 2
  124.       visual dissolve fast
  125.       go to card 7
  126.       visual dissolve fast
  127.       go to card 8
  128.     end repeat
  129.     repeat for 2
  130.       visual dissolve fast
  131.       go to card 11
  132.       visual dissolve fast
  133.       go to card 12
  134.       back2square1
  135.     end repeat
  136.     repeat for 2
  137.       visual dissolve fast
  138.       go to card 13
  139.       visual dissolve fast
  140.       go to card 14
  141.       back2square1
  142.     end repeat
  143.     visual dissolve fast
  144.     go to card 15
  145.     back2square1
  146.     wait 30 ticks
  147.     repeat with i = 16 to 21
  148.       visual dissolve fast
  149.       go to card i
  150.       back2square1
  151.     end repeat
  152.     repeat for 6
  153.       visual dissolve fast
  154.       go to card 22
  155.       visual dissolve fast
  156.       go to card 23
  157.       back2square1
  158.     end repeat
  159.     repeat for 2
  160.       visual dissolve fast
  161.       go to card 24
  162.       visual dissolve fast
  163.       go to card 25
  164.       back2square1
  165.     end repeat
  166.     visual dissolve
  167.     go first
  168.     wait 1 seconds
  169.     back2square1
  170.   end repeat
  171. end showYerStuff
  172.  
  173. on homeBoy
  174.   go first
  175.   if field "Homer" = empty or the shiftKey is down then
  176.     answer "Install this stack's button on Home Card?" with "Yes" or "No"
  177.     if IT = "Yes" then
  178.       set cursor to 4
  179.       put 1 into field "Homer"
  180.       set lockscreen to true
  181.       set visible of bkgnd btn "A System" to true
  182.       choose button tool
  183.       click at loc of bkgnd btn "A System"
  184.       domenu "Copy Button"
  185.       set visible of bkgnd btn "A System" to false
  186.       choose browse tool
  187.       set lockscreen to false
  188.       visual dissolve
  189.       go home
  190.       put "Click where you want your Idler button."
  191.       set cursor to 2
  192.       repeat until the mouse is down
  193.       end repeat
  194.       set cursor to 4
  195.       put the mouseloc into btnLoc
  196.       set lockscreen to true
  197.       domenu "Paste Button"
  198.       set loc of card btn "A System" to btnLoc
  199.       choose browse tool
  200.       set lockscreen to false
  201.       exit homeBoy
  202.     else
  203.       visual dissolve fast
  204.       go home
  205.     end if
  206.   end if
  207. end homeBoy
  208.  
  209. on back2square1
  210.   global idlerExit
  211.   if the mouse is down then
  212.     if the commandKey is down or the shiftKey is down then
  213.       visual dissolve fast
  214.       go first
  215.       exit to hyperCard
  216.     else
  217.       visual dissolve fast
  218.       go first
  219.       visual iris close
  220.       go to idlerExit
  221.       exit to hyperCard
  222.     end if
  223.   end if
  224. end back2square1
  225.  
  226.  
  227.